home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / CreateMenuHelp 1.0.cpt / CreateMenuHelp 1.0 (US) / cards.xml < prev    next >
Text File  |  1991-12-03  |  25KB  |  667 lines

  1. card_4309.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>4309</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_4479.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2661</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_2387.css" />
  13.     <part>
  14.         <id>1</id>
  15.         <type>button</type>
  16.         <visible> <true /> </visible>
  17.         <reserved5> 0 </reserved5>
  18.         <reserved4> 0 </reserved4>
  19.         <reserved3> 0 </reserved3>
  20.         <reserved2> 0 </reserved2>
  21.         <reserved1> 0 </reserved1>
  22.         <enabled> <true /> </enabled>
  23.         <rect>
  24.             <left>15</left>
  25.             <top>305</top>
  26.             <right>54</right>
  27.             <bottom>341</bottom>
  28.         </rect>
  29.         <style>transparent</style>
  30.         <showName> <false /> </showName>
  31.         <highlight> <false /> </highlight>
  32.         <autoHighlight> <true /> </autoHighlight>
  33.         <sharedHighlight> <true /> </sharedHighlight>
  34.         <family>0</family>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>29114</icon>
  37.         <textAlign>center</textAlign>
  38.         <font>Chicago</font>
  39.         <textSize>12</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <name></name>
  42.         <script>on mouseUpglobal destStackif destStack ‚↠emptythenset lockMessages to truego stack destStackput empty into destStackelse go prevend mouseUp</script>
  43.     </part>
  44.     <part>
  45.         <id>3</id>
  46.         <type>field</type>
  47.         <visible> <true /> </visible>
  48.         <dontWrap> <true /> </dontWrap>
  49.         <dontSearch> <false /> </dontSearch>
  50.         <sharedText> <false /> </sharedText>
  51.         <fixedLineHeight> <true /> </fixedLineHeight>
  52.         <autoTab> <false /> </autoTab>
  53.         <lockText> <true /> </lockText>
  54.         <rect>
  55.             <left>4</left>
  56.             <top>8</top>
  57.             <right>142</right>
  58.             <bottom>27</bottom>
  59.         </rect>
  60.         <style>rectangle</style>
  61.         <autoSelect> <false /> </autoSelect>
  62.         <showLines> <false /> </showLines>
  63.         <wideMargins> <false /> </wideMargins>
  64.         <multipleLines> <false /> </multipleLines>
  65.         <reservedFamily> 0 </reservedFamily>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>left</textAlign>
  69.         <font>Chicago</font>
  70.         <textSize>12</textSize>
  71.         <textStyle>condense</textStyle>
  72.         <textHeight>16</textHeight>
  73.         <name>MenuName</name>
  74.         <script></script>
  75.     </part>
  76.     <part>
  77.         <id>4</id>
  78.         <type>field</type>
  79.         <visible> <false /> </visible>
  80.         <dontWrap> <true /> </dontWrap>
  81.         <dontSearch> <false /> </dontSearch>
  82.         <sharedText> <false /> </sharedText>
  83.         <fixedLineHeight> <true /> </fixedLineHeight>
  84.         <autoTab> <false /> </autoTab>
  85.         <lockText> <true /> </lockText>
  86.         <rect>
  87.             <left>4</left>
  88.             <top>26</top>
  89.             <right>158</right>
  90.             <bottom>302</bottom>
  91.         </rect>
  92.         <style>scrolling</style>
  93.         <autoSelect> <false /> </autoSelect>
  94.         <showLines> <false /> </showLines>
  95.         <wideMargins> <false /> </wideMargins>
  96.         <multipleLines> <false /> </multipleLines>
  97.         <reservedFamily> 0 </reservedFamily>
  98.         <titleWidth>0</titleWidth>
  99.         <icon>0</icon>
  100.         <textAlign>left</textAlign>
  101.         <font>Chicago</font>
  102.         <textSize>12</textSize>
  103.         <textStyle>condense</textStyle>
  104.         <textHeight>16</textHeight>
  105.         <name>Menu</name>
  106.         <script></script>
  107.     </part>
  108.     <part>
  109.         <id>5</id>
  110.         <type>field</type>
  111.         <visible> <true /> </visible>
  112.         <dontWrap> <false /> </dontWrap>
  113.         <dontSearch> <false /> </dontSearch>
  114.         <sharedText> <false /> </sharedText>
  115.         <fixedLineHeight> <false /> </fixedLineHeight>
  116.         <autoTab> <false /> </autoTab>
  117.         <lockText> <false /> </lockText>
  118.         <rect>
  119.             <left>165</left>
  120.             <top>60</top>
  121.             <right>330</right>
  122.             <bottom>160</bottom>
  123.         </rect>
  124.         <style>transparent</style>
  125.         <autoSelect> <false /> </autoSelect>
  126.         <showLines> <false /> </showLines>
  127.         <wideMargins> <false /> </wideMargins>
  128.         <multipleLines> <false /> </multipleLines>
  129.         <reservedFamily> 0 </reservedFamily>
  130.         <titleWidth>0</titleWidth>
  131.         <icon>0</icon>
  132.         <textAlign>left</textAlign>
  133.         <font>Geneva</font>
  134.         <textSize>9</textSize>
  135.         <textStyle>plain</textStyle>
  136.         <textHeight>12</textHeight>
  137.         <name></name>
  138.         <script></script>
  139.     </part>
  140.     <part>
  141.         <id>7</id>
  142.         <type>field</type>
  143.         <visible> <true /> </visible>
  144.         <dontWrap> <false /> </dontWrap>
  145.         <dontSearch> <false /> </dontSearch>
  146.         <sharedText> <false /> </sharedText>
  147.         <fixedLineHeight> <false /> </fixedLineHeight>
  148.         <autoTab> <false /> </autoTab>
  149.         <lockText> <false /> </lockText>
  150.         <rect>
  151.             <left>340</left>
  152.             <top>60</top>
  153.             <right>505</right>
  154.             <bottom>160</bottom>
  155.         </rect>
  156.         <style>transparent</style>
  157.         <autoSelect> <false /> </autoSelect>
  158.         <showLines> <false /> </showLines>
  159.         <wideMargins> <false /> </wideMargins>
  160.         <multipleLines> <false /> </multipleLines>
  161.         <reservedFamily> 0 </reservedFamily>
  162.         <titleWidth>0</titleWidth>
  163.         <icon>0</icon>
  164.         <textAlign>left</textAlign>
  165.         <font>Geneva</font>
  166.         <textSize>9</textSize>
  167.         <textStyle>plain</textStyle>
  168.         <textHeight>12</textHeight>
  169.         <name></name>
  170.         <script></script>
  171.     </part>
  172.     <part>
  173.         <id>8</id>
  174.         <type>field</type>
  175.         <visible> <true /> </visible>
  176.         <dontWrap> <false /> </dontWrap>
  177.         <dontSearch> <false /> </dontSearch>
  178.         <sharedText> <false /> </sharedText>
  179.         <fixedLineHeight> <false /> </fixedLineHeight>
  180.         <autoTab> <false /> </autoTab>
  181.         <lockText> <false /> </lockText>
  182.         <rect>
  183.             <left>165</left>
  184.             <top>182</top>
  185.             <right>330</right>
  186.             <bottom>282</bottom>
  187.         </rect>
  188.         <style>transparent</style>
  189.         <autoSelect> <false /> </autoSelect>
  190.         <showLines> <false /> </showLines>
  191.         <wideMargins> <false /> </wideMargins>
  192.         <multipleLines> <false /> </multipleLines>
  193.         <reservedFamily> 0 </reservedFamily>
  194.         <titleWidth>0</titleWidth>
  195.         <icon>0</icon>
  196.         <textAlign>left</textAlign>
  197.         <font>Geneva</font>
  198.         <textSize>9</textSize>
  199.         <textStyle>plain</textStyle>
  200.         <textHeight>12</textHeight>
  201.         <name></name>
  202.         <script></script>
  203.     </part>
  204.     <part>
  205.         <id>9</id>
  206.         <type>field</type>
  207.         <visible> <true /> </visible>
  208.         <dontWrap> <false /> </dontWrap>
  209.         <dontSearch> <false /> </dontSearch>
  210.         <sharedText> <false /> </sharedText>
  211.         <fixedLineHeight> <false /> </fixedLineHeight>
  212.         <autoTab> <false /> </autoTab>
  213.         <lockText> <false /> </lockText>
  214.         <rect>
  215.             <left>340</left>
  216.             <top>182</top>
  217.             <right>505</right>
  218.             <bottom>282</bottom>
  219.         </rect>
  220.         <style>transparent</style>
  221.         <autoSelect> <false /> </autoSelect>
  222.         <showLines> <false /> </showLines>
  223.         <wideMargins> <false /> </wideMargins>
  224.         <multipleLines> <false /> </multipleLines>
  225.         <reservedFamily> 0 </reservedFamily>
  226.         <titleWidth>0</titleWidth>
  227.         <icon>0</icon>
  228.         <textAlign>left</textAlign>
  229.         <font>Geneva</font>
  230.         <textSize>9</textSize>
  231.         <textStyle>plain</textStyle>
  232.         <textHeight>12</textHeight>
  233.         <name></name>
  234.         <script></script>
  235.     </part>
  236.     <part>
  237.         <id>12</id>
  238.         <type>field</type>
  239.         <visible> <true /> </visible>
  240.         <dontWrap> <false /> </dontWrap>
  241.         <dontSearch> <false /> </dontSearch>
  242.         <sharedText> <false /> </sharedText>
  243.         <fixedLineHeight> <false /> </fixedLineHeight>
  244.         <autoTab> <false /> </autoTab>
  245.         <lockText> <true /> </lockText>
  246.         <rect>
  247.             <left>231</left>
  248.             <top>42</top>
  249.             <right>330</right>
  250.             <bottom>57</bottom>
  251.         </rect>
  252.         <style>opaque</style>
  253.         <autoSelect> <false /> </autoSelect>
  254.         <showLines> <false /> </showLines>
  255.         <wideMargins> <false /> </wideMargins>
  256.         <multipleLines> <false /> </multipleLines>
  257.         <reservedFamily> 0 </reservedFamily>
  258.         <titleWidth>0</titleWidth>
  259.         <icon>0</icon>
  260.         <textAlign>right</textAlign>
  261.         <font>Geneva</font>
  262.         <textSize>9</textSize>
  263.         <textStyle>plain</textStyle>
  264.         <textHeight>12</textHeight>
  265.         <name></name>
  266.         <script></script>
  267.     </part>
  268.     <part>
  269.         <id>14</id>
  270.         <type>field</type>
  271.         <visible> <true /> </visible>
  272.         <dontWrap> <false /> </dontWrap>
  273.         <dontSearch> <false /> </dontSearch>
  274.         <sharedText> <false /> </sharedText>
  275.         <fixedLineHeight> <false /> </fixedLineHeight>
  276.         <autoTab> <false /> </autoTab>
  277.         <lockText> <true /> </lockText>
  278.         <rect>
  279.             <left>407</left>
  280.             <top>42</top>
  281.             <right>506</right>
  282.             <bottom>57</bottom>
  283.         </rect>
  284.         <style>opaque</style>
  285.         <autoSelect> <false /> </autoSelect>
  286.         <showLines> <false /> </showLines>
  287.         <wideMargins> <false /> </wideMargins>
  288.         <multipleLines> <false /> </multipleLines>
  289.         <reservedFamily> 0 </reservedFamily>
  290.         <titleWidth>0</titleWidth>
  291.         <icon>0</icon>
  292.         <textAlign>right</textAlign>
  293.         <font>Geneva</font>
  294.         <textSize>9</textSize>
  295.         <textStyle>plain</textStyle>
  296.         <textHeight>12</textHeight>
  297.         <name></name>
  298.         <script></script>
  299.     </part>
  300.     <part>
  301.         <id>15</id>
  302.         <type>field</type>
  303.         <visible> <true /> </visible>
  304.         <dontWrap> <false /> </dontWrap>
  305.         <dontSearch> <false /> </dontSearch>
  306.         <sharedText> <false /> </sharedText>
  307.         <fixedLineHeight> <false /> </fixedLineHeight>
  308.         <autoTab> <false /> </autoTab>
  309.         <lockText> <true /> </lockText>
  310.         <rect>
  311.             <left>239</left>
  312.             <top>164</top>
  313.             <right>330</right>
  314.             <bottom>179</bottom>
  315.         </rect>
  316.         <style>opaque</style>
  317.         <autoSelect> <false /> </autoSelect>
  318.         <showLines> <false /> </showLines>
  319.         <wideMargins> <false /> </wideMargins>
  320.         <multipleLines> <false /> </multipleLines>
  321.         <reservedFamily> 0 </reservedFamily>
  322.         <titleWidth>0</titleWidth>
  323.         <icon>0</icon>
  324.         <textAlign>right</textAlign>
  325.         <font>Geneva</font>
  326.         <textSize>9</textSize>
  327.         <textStyle>plain</textStyle>
  328.         <textHeight>12</textHeight>
  329.         <name></name>
  330.         <script></script>
  331.     </part>
  332.     <part>
  333.         <id>16</id>
  334.         <type>field</type>
  335.         <visible> <true /> </visible>
  336.         <dontWrap> <false /> </dontWrap>
  337.         <dontSearch> <false /> </dontSearch>
  338.         <sharedText> <false /> </sharedText>
  339.         <fixedLineHeight> <false /> </fixedLineHeight>
  340.         <autoTab> <false /> </autoTab>
  341.         <lockText> <true /> </lockText>
  342.         <rect>
  343.             <left>406</left>
  344.             <top>164</top>
  345.             <right>505</right>
  346.             <bottom>179</bottom>
  347.         </rect>
  348.         <style>opaque</style>
  349.         <autoSelect> <false /> </autoSelect>
  350.         <showLines> <false /> </showLines>
  351.         <wideMargins> <false /> </wideMargins>
  352.         <multipleLines> <false /> </multipleLines>
  353.         <reservedFamily> 0 </reservedFamily>
  354.         <titleWidth>0</titleWidth>
  355.         <icon>0</icon>
  356.         <textAlign>right</textAlign>
  357.         <font>Geneva</font>
  358.         <textSize>9</textSize>
  359.         <textStyle>plain</textStyle>
  360.         <textHeight>12</textHeight>
  361.         <name></name>
  362.         <script></script>
  363.     </part>
  364.     <part>
  365.         <id>19</id>
  366.         <type>field</type>
  367.         <visible> <false /> </visible>
  368.         <dontWrap> <true /> </dontWrap>
  369.         <dontSearch> <true /> </dontSearch>
  370.         <sharedText> <false /> </sharedText>
  371.         <fixedLineHeight> <true /> </fixedLineHeight>
  372.         <autoTab> <false /> </autoTab>
  373.         <lockText> <false /> </lockText>
  374.         <rect>
  375.             <left>163</left>
  376.             <top>288</top>
  377.             <right>504</right>
  378.             <bottom>340</bottom>
  379.         </rect>
  380.         <style>scrolling</style>
  381.         <autoSelect> <false /> </autoSelect>
  382.         <showLines> <false /> </showLines>
  383.         <wideMargins> <false /> </wideMargins>
  384.         <multipleLines> <false /> </multipleLines>
  385.         <reservedFamily> 0 </reservedFamily>
  386.         <titleWidth>0</titleWidth>
  387.         <icon>0</icon>
  388.         <textAlign>left</textAlign>
  389.         <font>Geneva</font>
  390.         <textSize>9</textSize>
  391.         <textStyle>plain</textStyle>
  392.         <textHeight>12</textHeight>
  393.         <name>Help</name>
  394.         <script></script>
  395.     </part>
  396.     <part>
  397.         <id>21</id>
  398.         <type>button</type>
  399.         <visible> <true /> </visible>
  400.         <reserved5> 0 </reserved5>
  401.         <reserved4> 0 </reserved4>
  402.         <reserved3> 0 </reserved3>
  403.         <reserved2> 0 </reserved2>
  404.         <reserved1> 0 </reserved1>
  405.         <enabled> <true /> </enabled>
  406.         <rect>
  407.             <left>181</left>
  408.             <top>298</top>
  409.             <right>342</right>
  410.             <bottom>331</bottom>
  411.         </rect>
  412.         <style>roundrect</style>
  413.         <showName> <true /> </showName>
  414.         <highlight> <false /> </highlight>
  415.         <autoHighlight> <true /> </autoHighlight>
  416.         <sharedHighlight> <true /> </sharedHighlight>
  417.         <family>0</family>
  418.         <titleWidth>0</titleWidth>
  419.         <icon>0</icon>
  420.         <textAlign>center</textAlign>
  421.         <font>Chicago</font>
  422.         <textSize>12</textSize>
  423.         <textStyle>plain</textStyle>
  424.         <name>Create Help Resource</name>
  425.         <script>on mouseUpglobal destStackset cursor to busyStoreCurrentHelpput cd fld "MenuName" into MenuNameput cd fld "Help" into Helpif destStack ‚↠emptythenset lockMessages to truelock Screengo stack destStackend ifCreateMenuHelp MenuName,Help,"‚Äì"get the Resultif it ‚↠emptythenbeepanswer itelse answer "‚Äúhmnu‚Äù resource has been created"if destStack ‚↠emptythenset lockMessages to truego backend ifend mouseUp</script>
  426.     </part>
  427.     <part>
  428.         <id>22</id>
  429.         <type>button</type>
  430.         <visible> <true /> </visible>
  431.         <reserved5> 0 </reserved5>
  432.         <reserved4> 0 </reserved4>
  433.         <reserved3> 0 </reserved3>
  434.         <reserved2> 0 </reserved2>
  435.         <reserved1> 0 </reserved1>
  436.         <enabled> <true /> </enabled>
  437.         <rect>
  438.             <left>166</left>
  439.             <top>9</top>
  440.             <right>308</right>
  441.             <bottom>26</bottom>
  442.         </rect>
  443.         <style>radiobutton</style>
  444.         <showName> <true /> </showName>
  445.         <highlight> <true /> </highlight>
  446.         <autoHighlight> <false /> </autoHighlight>
  447.         <sharedHighlight> <true /> </sharedHighlight>
  448.         <family>0</family>
  449.         <titleWidth>0</titleWidth>
  450.         <icon>0</icon>
  451.         <textAlign>center</textAlign>
  452.         <font>Chicago</font>
  453.         <textSize>12</textSize>
  454.         <textStyle>plain</textStyle>
  455.         <name>Default help</name>
  456.         <script>on mouseUpglobal LineNbif not Hilite of methenStoreCurrentHelpRadioBtnput empty into LineNbRetrieveHelp 1end ifend mouseUp</script>
  457.     </part>
  458.     <part>
  459.         <id>23</id>
  460.         <type>button</type>
  461.         <visible> <true /> </visible>
  462.         <reserved5> 0 </reserved5>
  463.         <reserved4> 0 </reserved4>
  464.         <reserved3> 0 </reserved3>
  465.         <reserved2> 0 </reserved2>
  466.         <reserved1> 0 </reserved1>
  467.         <enabled> <true /> </enabled>
  468.         <rect>
  469.             <left>308</left>
  470.             <top>9</top>
  471.             <right>429</right>
  472.             <bottom>26</bottom>
  473.         </rect>
  474.         <style>radiobutton</style>
  475.         <showName> <true /> </showName>
  476.         <highlight> <false /> </highlight>
  477.         <autoHighlight> <false /> </autoHighlight>
  478.         <sharedHighlight> <true /> </sharedHighlight>
  479.         <family>0</family>
  480.         <titleWidth>0</titleWidth>
  481.         <icon>0</icon>
  482.         <textAlign>center</textAlign>
  483.         <font>Chicago</font>
  484.         <textSize>12</textSize>
  485.         <textStyle>plain</textStyle>
  486.         <name>Individual help</name>
  487.         <script>on mouseUpif not Hilite of methenStoreCurrentHelpRadioBtnrepeat with i=3 to 6put empty into cd fld iend repeatend ifend mouseUp</script>
  488.     </part>
  489.     <part>
  490.         <id>24</id>
  491.         <type>field</type>
  492.         <visible> <true /> </visible>
  493.         <dontWrap> <false /> </dontWrap>
  494.         <dontSearch> <false /> </dontSearch>
  495.         <sharedText> <false /> </sharedText>
  496.         <fixedLineHeight> <false /> </fixedLineHeight>
  497.         <autoTab> <false /> </autoTab>
  498.         <lockText> <true /> </lockText>
  499.         <rect>
  500.             <left>84</left>
  501.             <top>112</top>
  502.             <right>449</right>
  503.             <bottom>208</bottom>
  504.         </rect>
  505.         <style>shadow</style>
  506.         <autoSelect> <false /> </autoSelect>
  507.         <showLines> <false /> </showLines>
  508.         <wideMargins> <false /> </wideMargins>
  509.         <multipleLines> <false /> </multipleLines>
  510.         <reservedFamily> 0 </reservedFamily>
  511.         <titleWidth>0</titleWidth>
  512.         <icon>0</icon>
  513.         <textAlign>center</textAlign>
  514.         <font>Chicago</font>
  515.         <textSize>12</textSize>
  516.         <textStyle>plain</textStyle>
  517.         <textHeight>16</textHeight>
  518.         <name>Prompt</name>
  519.         <script></script>
  520.     </part>
  521.     <content>
  522.         <layer>card</layer>
  523.         <id>24</id>
  524.         <text>Select any item from a menu to begin help editing,then click on menu name or on any item in the field and simply type help text in the balloons.</text>
  525.     </content>
  526.     <content>
  527.         <layer>card</layer>
  528.         <id>12</id>
  529.         <text>0 characters</text>
  530.     </content>
  531.     <content>
  532.         <layer>card</layer>
  533.         <id>14</id>
  534.         <text>0 characters</text>
  535.     </content>
  536.     <content>
  537.         <layer>card</layer>
  538.         <id>15</id>
  539.         <text>0 characters</text>
  540.     </content>
  541.     <content>
  542.         <layer>card</layer>
  543.         <id>16</id>
  544.         <text>0 characters</text>
  545.     </content>
  546.     <name>CMH</name>
  547.     <script>on doMenu MenuItem,MenuNameglobal LineNblock Screenhide cd fld "Prompt"put empty into LineNbClearAllput "This item is currently available, you can select it" &¬¨"‚ÄìThis item is currently unavailable, you cannot select it" &¬¨"‚ÄìThis item is currently checked, selecting it again may uncheck it" &¬¨"‚ÄìThis item is currently checked, selecting it again may uncheck it" into cd fld "Help"put MenuName into cd fld "MenuName"put MenuItemsList(MenuName) into cd fld "Menu"set hilite of btn 3 to falsesend mouseUp to btn 3end doMenuon commandKeyDown Whatif What = "c"then send "doMenu" && quote & "Copy Text" & quote to HyperCardelse  if What = "x"then send "doMenu" && quote & "Cut Text" & quote to HyperCardelse  if What = "v"then send "doMenu" && quote & "Paste Text" & quote to HyperCardend commandKeyDownon RadioBtnrepeat with i=3 to 4set hilite of btn i to (i = number of the target)end repeatset visible of cd fld 2 to hilite of btn 4end RadioBtnon idleif "card field" is not in the selectedChunkthenrepeat with i=3 to 6put length(cd fld i) && "characters" into cd fld (i+4)end repeatend ifend idleon closeFieldidleend closefieldon openCardlock ScreenClearAllshow cd fld "Prompt"end openCardon ClearAllrepeat with i=1 to 11put empty into cd fld iend repeatset hilite of btn 3 to falsesend mouseUp to btn 3end ClearAllon mouseUpglobal LineNbif the target contains "card field" and number of the target is in "1,2" and hilite of btn 4thenput the clickLine into LClickdo "get" && LClickif first char of it ‚↠"-" and it ‚↠emptythenStoreCurrentHelpif LClick contains "card field 1"then RetrieveHelp 2else RetrieveHelp (word 2 of LClick) + 2do "set textStyle of" && LClick && "to condense,outline,underline"put LClick into LineNbend ifend ifend mouseUpon StoreCurrentHelpglobal LineNbif LineNb ‚↠emptythenif LineNb contains "card field 1"then put StoreHelp(2) into HelpAddedelse put StoreHelp((word 2 of LineNb) + 2) into HelpAddedget "set textStyle of" && LineNb && "to condense"if HelpAddedthen put ",bold" after itdo itelse if hilite of btn 3then get StoreHelp(1)end StoreCurrentHelpfunction StoreHelp Nbset itemDelimiter to "‚Äì"repeat with i=3 to 6put ReturnToChar(cd fld i) into item (i-2) of Tempend repeatif Temp ‚↠"‚Äì‚Äì‚Äì"then put Temp into line Nb of cd fld "Help"else put empty into line Nb of cd fld "Help"return(Temp ‚↠"‚Äì‚Äì‚Äì")end StoreHelpfunction ReturnToChar Whatrepeat while offset(return,What) ‚↠0put "¬∂" into char offset(return,What) of Whatend repeatreturn Whatend ReturnToCharfunction CharToReturn Whatrepeat while offset("¬∂",What) ‚↠0put return into char offset("¬∂",What) of Whatend repeatreturn Whatend CharToReturnon RetrieveHelp Nbset itemDelimiter to "‚Äì"repeat with i=3 to 6put CharToReturn(item(i-2) of line Nb of cd fld "Help") into cd fld iend repeatend RetrieveHelp</script>
  548. </card>
  549.  
  550.  
  551. card_3055.xml
  552. <?xml version="1.0" encoding="utf-8" ?>
  553. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  554. <card>
  555.     <id>3055</id>
  556.     <filler1>0</filler1>
  557.     <bitmap>BMAP_3273.pbm</bitmap>
  558.     <cantDelete> <false /> </cantDelete>
  559.     <showPict> <true /> </showPict>
  560.     <dontSearch> <false /> </dontSearch>
  561.     <owner>2661</owner>
  562.     <link rel="stylesheet" type="text/css" href="stylesheet_2387.css" />
  563.     <part>
  564.         <id>1</id>
  565.         <type>field</type>
  566.         <visible> <true /> </visible>
  567.         <dontWrap> <false /> </dontWrap>
  568.         <dontSearch> <false /> </dontSearch>
  569.         <sharedText> <false /> </sharedText>
  570.         <fixedLineHeight> <true /> </fixedLineHeight>
  571.         <autoTab> <false /> </autoTab>
  572.         <lockText> <true /> </lockText>
  573.         <rect>
  574.             <left>69</left>
  575.             <top>68</top>
  576.             <right>434</right>
  577.             <bottom>252</bottom>
  578.         </rect>
  579.         <style>scrolling</style>
  580.         <autoSelect> <false /> </autoSelect>
  581.         <showLines> <false /> </showLines>
  582.         <wideMargins> <false /> </wideMargins>
  583.         <multipleLines> <false /> </multipleLines>
  584.         <reservedFamily> 0 </reservedFamily>
  585.         <titleWidth>0</titleWidth>
  586.         <icon>0</icon>
  587.         <textAlign>left</textAlign>
  588.         <font>Geneva</font>
  589.         <textSize>9</textSize>
  590.         <textStyle>plain</textStyle>
  591.         <textHeight>12</textHeight>
  592.         <name>Text</name>
  593.         <script></script>
  594.     </part>
  595.     <part>
  596.         <id>5</id>
  597.         <type>button</type>
  598.         <visible> <true /> </visible>
  599.         <reserved5> 0 </reserved5>
  600.         <reserved4> 0 </reserved4>
  601.         <reserved3> 0 </reserved3>
  602.         <reserved2> 0 </reserved2>
  603.         <reserved1> 0 </reserved1>
  604.         <enabled> <true /> </enabled>
  605.         <rect>
  606.             <left>179</left>
  607.             <top>271</top>
  608.             <right>348</right>
  609.             <bottom>301</bottom>
  610.         </rect>
  611.         <style>roundrect</style>
  612.         <showName> <true /> </showName>
  613.         <highlight> <false /> </highlight>
  614.         <autoHighlight> <true /> </autoHighlight>
  615.         <sharedHighlight> <true /> </sharedHighlight>
  616.         <family>0</family>
  617.         <titleWidth>0</titleWidth>
  618.         <icon>0</icon>
  619.         <textAlign>center</textAlign>
  620.         <font>Chicago</font>
  621.         <textSize>12</textSize>
  622.         <textStyle>plain</textStyle>
  623.         <name>CreateMenuHelp</name>
  624.         <script>on mouseUpgo nextend mouseUp</script>
  625.     </part>
  626.     <part>
  627.         <id>17</id>
  628.         <type>button</type>
  629.         <visible> <true /> </visible>
  630.         <reserved5> 0 </reserved5>
  631.         <reserved4> 0 </reserved4>
  632.         <reserved3> 0 </reserved3>
  633.         <reserved2> 0 </reserved2>
  634.         <reserved1> 0 </reserved1>
  635.         <enabled> <true /> </enabled>
  636.         <rect>
  637.             <left>179</left>
  638.             <top>315</top>
  639.             <right>348</right>
  640.             <bottom>337</bottom>
  641.         </rect>
  642.         <style>roundrect</style>
  643.         <showName> <true /> </showName>
  644.         <highlight> <false /> </highlight>
  645.         <autoHighlight> <true /> </autoHighlight>
  646.         <sharedHighlight> <true /> </sharedHighlight>
  647.         <family>0</family>
  648.         <titleWidth>0</titleWidth>
  649.         <icon>0</icon>
  650.         <textAlign>center</textAlign>
  651.         <font>Chicago</font>
  652.         <textSize>12</textSize>
  653.         <textStyle>plain</textStyle>
  654.         <name>Start using this stack</name>
  655.         <script>on mouseUpstart using stack value of word 2 of long name of this stackanswer "Now simply type ‚ÄúCMH‚Äù in msg box when being in the stack where you want to add menu Help"end mouseUp</script>
  656.     </part>
  657.     <content>
  658.         <layer>card</layer>
  659.         <id>1</id>
  660.         <text><span class="style1">                                       </span><span class="style2">CreateMenuHelp 1.0</span><span class="style1">                                         </span><span class="style3">by Fr√©d√©ric RINALDI</span><span class="style1"></span><span class="style4">DESCRIPTION</span><span class="style1">  CreateMenuHelp creates "hmnu" resource to be used by the Help Mgr in order to provide menus help balloons. It requires System 7.0.</span><span class="style4">SYNTAX</span><span class="style1">         CreateMenuHelp <menu name>,<help string>[,<item separator>]</span><span class="style4">PARAMETERS</span><span class="style1">   </span><span class="style2"><menu name></span><span class="style1"> is a string giving the name of the menu for which help has to be added.   </span><span class="style2"><help string></span><span class="style1"> is a complex string giving the help text for each item :       line 1 : help text for undocumented items       line 2 : help text for the  menu iself       line 3 : help text for item 1       ...       line N : help text for item N-2   Each line is made of four entries (default separator is comma), being respectively :  <enabled help>,<disabled help>,<checked help>,<non-standard check help>   Line 2 of the container giving help for the menu itself has a slightly different meaning : <enabled help>,<disabled help>,<menu modal-dimmed help>,<items modal-dimmed help>   If returns are needed in any help string, just put a "¬∂" char which will be replaced by the XCMD in the created resource.  </span><span class="style2"> <item separator></span><span class="style1"> is a single char allowing to define any non-standard entry separator, which is useful when there are commas in the help text.   Using "!", "?" and "=" as first parameter will return an online help (resp. copyright,  syntax and output).</span><span class="style4">USING</span><span class="style1">   The XCMD creates a "hmnu" resource in the current stack, having the ID and name of the corresponding menu.   Any duplicate "hmnu" resource is simply replaced by the new one without warning.   If you want to be able to add menu help to any stack, simply click on the button </span><span class="style2">Start using this stack</span><span class="style1">, then you will just need to type "CMH" from any stack to add help resources to it.</span><span class="style4">ERRORS</span><span class="style1">If an error occurs, CreateMenuHelp can return :     "Error : Adding resource failed"     "Error : Menu not found"     "Error : Out of memory"     "Error : Help Mgr not found"     "Error : Missing or empty parameter"     "Error : Out of memory"   This stack also uses MenuItemsList XFCN, ¬© F. Rinaldi 1991.--------------------------------------------------------------------This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.Any commercial use must be licensed and aknowledged by the author.                                ¬© F. Rinaldi - 1989,1990,1991</span><span class="style2">AppleLink</span><span class="style1">: RINALDI1   </span><span class="style2">CalvaCom</span><span class="style1"> : FR10    </span><span class="style2">Compuserve</span><span class="style1"> : 71170,2111</span></text>
  661.     </content>
  662.     <name></name>
  663.     <script></script>
  664. </card>
  665.  
  666.  
  667.